{
  open Gramfor
}


let newline = '\n' | '\r' '\n'
let letter= ['a'-'z' 'A'-'Z']
let digit = ['0'-'9']

rule rfor = parse
  | newline         { Lexing.new_line lexbuf; rfor lexbuf }
  | [' ' '\t'] +    { rfor lexbuf }
  | letter+ as s    { IDENT s}
  | '+'             { PLUS_F }
  | '-'             { MOINS_F }
  | digit+ as n     { INT(int_of_string(n)) }
  | '#'             { EON }
